Select Code to Download

use strict;
use warnings;
...
my @final = map { "$_ $freq{$_}" } keys %freq;

print Dumper(\@final);

#! /usr/bin/perl

...
}

use strict;
use warnings;
...
 3.16   0.054  0.054   6000   0.0000 0.0000  Win32::MMF::Shareable::NE
+XTKEY
 2.58   0.044  0.044  18999   0.0000 0.0000  Win32::MMF::GetVar
 2.58   0.044  0.083   2000   0.0000 0.0000  Win32::MMF::Shareable::CL
+EAR