#!/usr/bin/perl

$particules{"proton"} = 938.3;
$particules{"neutron"} = 939.6;
$particules{"electron"} = 0.511;
while (($nom, $masse) = each(%particules))
  {
    print ($nom." (".$masse." MeV)\n");
  }
