Select Code to Download

Name test1 test2
      kim A 20  30
      kate k 40 50

#!/usr/bin/perl

use strict;
...

#Data::Dumper::Useqq = 1;
print Dumper \%hash;

$var1 ={ 'kim-a' =>['20',
                          '30'],
               'kate-k' =>['40',
                            '50']}

$var1 ={ 'kim-a' =>[25],
               'kate-k' =>[45']}