Re: Concordance Printing of Two Arrays

[NateTut]

Depending on what else you want to do with these values you might want to put them in a hash:

use strict;
use warnings;

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

my %numalp;

#
# Build the hash...
#
for my $index (0 .. $#num)
   {
   $numalp{$num[$index]} = $alp[$index];
   }

#
# Print it
#
foreach (sort(keys(%numalp)))
   {
   print("numalp\[$_\]\[$numalp{$_}\]\n");
   }

This way they remain associated if you need them again...