Select Code to Download

my @temp = map { [split /,/] } (split/\n/,$data);

my @lastNames;
for my $i ( 0..$#temp)
{
push @lastName, $temp[$i][1];
}