Select Code to Download

perl -lane "push @{$H{$F[0]}},$F[1]}{print map{$_,qq( ---> ),scalar @{
+$H{$_}},$/,(join $/,@{$H{$_}}),$/,$/}keys %H" data1.txt

...

2233 ---> 1
George

perl -MO=Deparse -lane "push @{$H{$F[0]}},$F[1]}{print map{ $_,qq( ---
+> ),scalar @{$H{$_}},$/,(join $/,@{$H{$_}}),$/,$/  }keys %H" 

...
    print map({$_, ' ---> ', scalar @{$H{$_};}, $/, join($/, @{$H{$_};
+}), $/, $/;} keys %H);
}
-e syntax OK

perl -MO=Deparse -l -e 1 
...
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK