Select Code to Download

foreach my $record ( @emails ) {
    my $email_address = $record->[1];
    # now do something with your email address.
}

foreach my $record ( @emails ) {
    if( $record =~ m/\S+\s+(\S+)/ ) {
...
    } else {
        die "Bad record format.\n";
}

$record =~ m/(\S+\@\S+)$/