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

    ($x, $y, $z)=split;

    # do whatever
}

##</code><code>##

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

    # do whatever
}