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