foreach my $result (@result) {
    my @fields = split /\s+/, $result;

    if($fields[3] // "" eq "Y") {
        push @streams, $fields[0];
    } else {
        push @spaces, $fields[0];
    }
}