Select Code to Download

use warnings;
use strict;
...
    }

 print $_,',',join (',' => @{$hash{$_}}),$/ for sort keys %hash;

#!/usr/bin/perl
use warnings;
...
 abc,8,2,1,3,1,4
 def,8,9,4,5,6 
 def,5,6,2,1