use strict;

my %table = qw/test0 0 test1 1 test2 2 test3 3 test4 4 test5 5 test6 6 test7 7/;

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