$/ = '>';
while ( <> ) {
    chomp;
    next if ! s{ \A (\S+) \s+ (?= \d ) }{}xms;
    my $name = $1;
    my @numbers = split /\D+/;
    my $one_number = $numbers[$href{$name} - 1];
    if ( $one_number >= 20 ) {
        print "$name $href{$name} $one_number\n";
    }
}