Select Code to Download

Input file: 
0011   Sally
...
2233   George
0011   Roy
1122   Simson

Output: 
0011 ---> 2 
...

2233 ---> 1
George.

my %count;
my $file = "Input file";
...
foreach my $str (sort keys %count) {
    printf "%-31s %s\n", $str, $count{$str};
}