#!/usr/bin/perl
my @arr = (3, 2, 1);
my %hash = (k1 => 'v1', k2 => 'v2');
if (@arr) {
    if (%hash) {
		for my $el (@arr) {
			keys %hash;
			for (my ($key, $val) = each %hash) {
				print "$el$key$val\n";
			}
		}
    } else {
    	print "$_\n" for @arr;
    }
} elsif (%hash) {
	print "%hash\n";
} else {
	print "No luck, screw it!\n";
}