if(
        defined $_->[4] 
    and $_->[4] ne ""
) {
    $float = join ',', @{$_}[1..4];
}