my @array = qw/ f1 f2 f3 f4/; my %hash = qw/ f1 foo f2 bar/; #OUTPUT # newarray - foo bar.