# your data is in %tag
open (IN, "<Input_file.dat") or die "Cannot read $!\n";
open (OUT,"+>Result_file.txt") or die "Cannot create file $!\n";
while (<IN>) {
    print OUT $_ if exists $tag{$_};
}