Select Code to Download

my %hash = map {
     (split /:/, $_ )[0] => (split /:/, $_ )[2]
    } <FILE>;

print join ( "\n", sort keys %hash );

(split /:/, $_ )[2]

(split /:/, $_ )[0]