Select Code to Download

my $foo;
sub context :lvalue { $foo = wantarray ? 'list' : 'scalar' } 
...

__END__
scalar

use Data::Dumper;

...
          'a' => '1',
          'b' => ''
        };

\@foo{@list};