for $key (%hash){
  print "$key $hash{$key}->[0] $hash{$key}->[1]\n";
  }