use warnings;
use strict;

our $x;
eval ('
       $x=1;
       print $x;
     '); 
#Generates a warning that $x is only used once.. Incorrectly.

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

##</code><code>##

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