} else {
    $_ = $_;

##</code><code>##

    my $newdata = [ shopping => \@item ];
    $_ = $newdata;

##</code><code>##

    $_ = [ shopping => \@item ];

##</code><code>##

    $_ = [shopping => [map {[item => $_]} qw(bread butter beans)]];