#!/usr/bin/perl -w
use strict;

  my %href;

      my $fn = <STDIN>;

      open(FH, "$fn") || die "Cannot open file";



      while (<FH>) {

              chomp($_);

              $href{$1} = $2 if $_ =~ /(\S+)\s+(\S+)/;

      }



      while (my ($key, $value) = each(%href)) {

              #print $key. ", ". $value."\n";

      }

open(FD,"<FileToBeParsedForValues.txt") || die("Can't open: $!");

$/ = '>';

while ( <FD> ) {

    chomp;

    next unless ( s{ \A (\S+) \s+ (?= \d ) }{}xms and exists( $href{$1} ));


    my $name = $1;

    my @numbers = split /\D+/;

    my $one_number = $numbers[$href{$name} - 1];

    if ( $one_number >= 20 ) {

        print "$name\t\t$href{$name}\t$one_number\n";

    }

}
close FD;