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

##</code><code>##

my @array = keys %num;

##</code><code>##

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