You can write the line

 print "$j: $hash1{$j}[0] $hash1{$j}[1] $hash1{$j}[2]\n";

as

print "$j: @{$hash1{$j}}\n";