foreach my $string (sort funky_sort @in_strings) {
    print $string, "\n";
}