my @var_list = qw( $foo @face $name %dict); assign($struct, @var_list);

use Test::More qw(no_plan); is( $foo, 2, "Scalar number assignment"); is( $name, 'John', "Scalar string assignment"); my $sum; map{ $sum += $_ } @{ $face }; is ($sum, 25, "Array assignment"); is( $dict->{fruit}, 'melon', "Hash assignment");