Unused variable my $foo at ./warntest.pl line 7.
Unused variable my $bar at ./warntest.pl line 8.
$foo++%