I need to produce a merged list. List1 contains all of List2 but in a different format. I have used regex to cull out what I need, but its an impractical approach as im iterating over List2 again and again. So, is there a more elegant solution to do this? Im fairly stumped.
my @CS_CHECKS = ( '00012345', 'D123470', '0000123450', '0000023456', '
my @B_CHECKS = ( '1234', '12345', '123990', '12399' );
for my $cn ( @CS_CHECKS )
for my $bn ( @B_CHECKS )
if ( $cn =~ /^(0|5|6)0+\Q$bn\E$/ )
print "$bn = $cn\n";
"That which we persist in doing becomes easier, not that the task itself has become easier, but that our ability to perform it has improved."
--Ralph Waldo Emerson