sub AUTOLOAD {print $AUTOLOAD}
*foo = bar;
foo ();

##</code><code>##

my %hash = (foo => 'bar');
chop for values %hash;
print values %hash, "\n";

##</code><code>##

print 80.101.114.108;