use strict; use warnings; use Data::Dumper; my $hash = { 'IL12::1::287' => [6,-17,-9,-21,-24,-15,-2,11,4,4,-15,-26, ...], 'IL12::1::329' => [-25,-18,-28,23,17,1,-3,-23], ... } print Dumper($hash);