Select Code to Download

use warnings;
use strict;
...
#Generates a warning that $x is only used once.. Incorrectly.

# {my $work_around=$x} # Uncomment to make the error go away.

{
     my @work_around=($x,$y,$z);
}