Use of uninitialized value $h{"$1"} in substitution iterator at extr.pl line 7.
bar
1bar
Use of uninitialized value $h{"$foo"} in concatenation (.) or string at extr.pl line 15.
bar