Select Code to Download

my @a = qw[one two]; 
my @b = qw[three four five]; 
...
two        four       seven
           five

#! perl -slw
use strict;
...
    8
    9
   10