sub guttros {  
    map { substr( $_, 3 ) }
    sort
    map { sprintf( "%03d", /foo(\d+)\.tla/ ) . $_ } @_;
}