package Mod;

BEGIN {
    my ($sub) =
        map "sub { $_ }",
        join ' ',
        map "$_();",
        sort { substr($a, 0, 1) cmp substr($b, 0, 1) }
        qw( foo bar baz );
}

sub foo { print "$foo\n" };
sub bar { print "$bar\n" };
sub baz { print "$baz\n" };

1;