sub mysort { substr($a,5) <=> substr($b,5) }