@file = map { $$_[0] } 
        sort { $$a[1] <=> $$b[1] }
        map { [$_, (split /:/)[3] ] } @file;