use strict;

my @numbers = qw/1 2 3 4 5/;
my %wht = qw/number1 $numbers[0] number2 $numbers[1] number3 $numbers[2] number4 $numbers[3] number5 $numbers[4]/;

while ( my($key, $value) = each(%wht) ) {
	if ($value ne '0') { print "$key = $value\n" }
}