my $y;

...

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