Heere is one way to do it.

while ( my ( $k, $l ) = each  %table_match ) {
  if ( $get_snmp{$k} != $get_perf{$l} ) {
    print "Different ( $k, $l )\n";
  } 
  else {
    print "ok ( $k, $l )\n";
  }
}
[download]