perl -le '$a1 = 3; $a2 = 4; $c = 2; print join " | ",(keys %main:: ); '