Select Code to Download

my @files= <*>;
@files= do {
    my @mo= ( qw(Jan Feb Mar Apr May Jun
...
        s/^(...)/$mo{$1}/
    } @files;
};

my @files= <*>;
@files= do {
    my @mo= qw(jan feb mar apr may jun
...
        1;
    } @files;
};