It is useful in some cases. For instance if you do:

my $y;

...

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

You will get a warning about an earlier declaration of $y. In this case you could do:

my $y;

...

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