#!/usr/bin/perl

use warnings;
use strict;

my $test = { 112 => [19, 24, 57],
             113 => [16, 7]
           };

push @{$test->{114}}, 8, 31, 32;

for (keys(%$test)) {
  print $_,"\n";
  print "--", $_,"\n" for (@{$test->{$_}});
}

exit();