my @files= getFileNames();

    my %sizes= map { $_ => getFileSize($_) } @files;
# or
    my %sizes;
    @sizes{@files}= map getFileSize($_), @files;