use Data::Dumper;

@array = (1..10, ['a'..'d']);

print Dumper @array;