foreach my $file (@the_files) {
    foreach $key (keys %image_hash) {
        $file=~ s/$key/$image_hash{$key}/g;    
    }
}