perl -e '$a1="1";$a2="2";$a4="3";
print  map {q{$}.$_,"\t",${$_},"\n"} grep {m/^a.*$/}(sort keys %main::)'
$a1	1
$a2	2
$a4	3