sort {
    do{
        my( $left, $right ) = map { substr($_,10) } $a, $b;
	$left cmp $right
    }
} @_;