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

#One way
for my $index (0 .. $#num) {
	print "$num[$index]-$alp[$index]\n";
}

#Or
print "$num[$_]-$alp[$_]\n" for (0 .. $#num);