Select Code to Download

use List::MoreUtils qw(pairwise);
use Data::Dumper;
...
@result=pairwise{($a.'-'.$b)}@num, @alp;

print Dumper(\@result);

$VAR1 = [
          '1-A',
...
          '4-D',
          '5-E'
        ];