Select Code to Download

#!/usr/bin/perl -w
use strict;
...

print "aaa_1 is now : @{$hash{'aaa_1'}}\n";
#prints aaa_1 is now : 4 5 8 9 26