my @sorted = 
    map $_->[0]
    sort { $a->[4] <=> $b->[4] }
    map [ $_, split /:/ ],
    <>;

##</code><code>##

my @sorted = 
    sort { $a->[4] <=> $b->[4] }
    map [ split /:/ ],
    <>;