Note that it would be far less confusing to simply use globals:

use vars qw($FOO $BAR $BAZ $JAPH);
$BAR = 3;
($FOO, $BAZ, $JAPH) = (3, 2, 1);
[download]

Even a Perl toddler who doesn't appreciate the finer points of the constant pragma can read that.