my @array;
push(@array,[  1,  2,  3,  4]);
push(@array,['A','B','C','D']);

test(\@array);

sub test
{
  my $arr=shift;

  print "$_, " for(@{$arr->[0]});
  print "\n";

  print "$_, " for(@{$arr->[1]});
  print "\n";
}