my @files = map {func($_)} @in;
sub func{ ... }

#or if we really hate the idea of a whole sub for this
#function that keeps the block hanging around when it's 
#finished being useful
my $func = sub { ... }
my @files = map {$func->($_)} @in;