Select Code to Download

#!/usr/bin/perl -w
#use strict;
...
        print $bob.$year while (defined($bob = shift @a));
}