#!/usr/bin/perl -w

use strict;
my @num  = qw (1 2 3 4 5);
my @alp  = qw (A B C D E);

for (0..$#num) {
	print $num[$_], "-", $alp[$_],$/;
}


### OR CREATE AOA
my @AoA = ();
for (0..$#num) {
	push @AoA, [$num[$_], $alp[$_]];
}
print $/;
foreach (@AoA)  {
	print @$_[0], "-", @$_[1],$/;
}
__END__
1-A
2-B
3-C
4-D
5-E

1-A
2-B
3-C
4-D
5-E