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
[download]