Select Code to Download

my @array = join(' ' , keys %num) . "\n";

my @array = keys %num;

use Data::Dumper;
print Dumper(\@array);