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

##</code><code>##

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

##</code><code>##

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