Unused variable my $bar at ./warntest.pl line 8.