my @keys = keys %test;
my $str = join(", ", @keys);
my $val = join(", ", map { $test{$_} } @keys);