my @files = qw(here there anywhere);
foreach my $f (@files) {
    use $f;
}