use Algorithm::Loops qw( MapCharU );

my $bar = [ MapCharU { [ @_ ] } @$foo ];