sub schwartzian {
    map { $_->[0] }
    sort { $a->[1] <=> $b->[1] }
    map { [ $_, /foo(\d+)\.tla/ ] } @_;
}