Select Code to Download

    
use warnings;
sub foo { my $val =  $_[0]; }
...

# this line generates two warnings
foo( $bar{$baz} );