my @matches = grep /$filename/, keys %path_versions;

##</code><code>##

   perldoc -f grep

##</code><code>##

my $last_string = ( split /\s+/, $depopath )[-1];