Select Code to Download

$VAR1 = 'UE_RTB_H2H_TPS_20040127.DAT';
$VAR2 = {
...
}
closedir   (TPS);
print Dumper(%all_files);

my @common = ();
foreach (keys %hash1) {
    push(@common, $_) if exists $hash2{$_};
}