grep (/$filename/i, $key) foreach my $key (keys %path_versions)

##</code><code>##

@array = grep (/$filename/, keys %path_versions);