use strict;
use Constants;

print FOO,"\n";
print $BAR,"\n";
print join(",",@A),"\n";
print "$_=>$H{$_}," foreach keys %H;