Select Code to Download

  } else {
    $_ = $_;

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

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

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