my $bar = \%*$foo;