if($fields[-1] eq 'Y'){
     ...

##</code><code>##

for my $result (@results) {
    my @fields = split /\s+/, $result;
    if ( $fields[-1] eq 'Y' ) {
        push @streams, $fields[0];
    }
    else {
        push @spaces, $fields[0];
    }
}