Help for this page
my %h1; while (<ONE>) { ... while (<TWO>) { /^(\d)+\s+(.+)/; printf "Match: %s\t%s\n", $1, $2 if exists $h1{$1};