>perl -wMstrict -le
"# as before...
 ;;
 my $arrayref = [ $one, $sec, $thr, ];
 ;;
 for my $hashref (@$arrayref) {
   while (my ($k, $v) = each %$hashref) {
     print qq{   '$k' -> '$v'};
     }
   }
"
   '1' -> 'mili'
   '3' -> 'kalu'
   '2' -> 'brown'
   'weight' -> '128'
   'eyes' -> 'hazel'
   'age' -> '23'
   'name' -> 'deep'
   'class' -> 'BI'
   'roll' -> '2'