Select Code to Download

#!/usr/bin/perl
use warnings;
...
my %d = %{$deref{DSAPrivateKey}};
for (keys(%d)) {print "$_ : $d{$_}\n"} 
__END__

#!/usr/bin/perl -w
use Data::Dumper;
...
print "$aref\n";
print @$aref,"\n";
__END__