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