#!/usr/local/bin/perl

$a{1}=[(1,10,11,52,63)];
$a{2}=[(2,20,21,52,63)];
$a{3}=[(3,30,31,52,63)];
$a{4}=[(4,40,41,52,63)];


foreach $i (keys(%a))
{
   print "$i: @{$a{$i}}\n";
}
