my $y; ... my ( $x, $y, $z ) = split / +/, $rname; #### my $y; ... ( my $x, $y, my $z ) = split / +/, $rname;