...
sub create_md5{
    my %file_hash;
    for my $file(@files2)
    {
    
        $file =~ tr~/~\\~;
        my $md5 = Digest::MD5->new;
        open FILES, $file;
        binmode(FILES);
        while(<FILES>) { $md5->add($_); }
        my $digest = $md5->hexdigest;
        close FILES;
        $file_hash{substr($file,length($vmwarepfad))} = "$digest";
    }
    return \%file_hash
} 
...