while(<>) {
    my @flds=split;
    my ($x, $y, $z)=(@flds,0,0,0);

    # do whatever
}