#!/usr/bin/perl -w
use strict;
print "\n";
my @numbers=(0..50);
foreach my $n (@numbers) {
	if ($numbers[$n]) {
		print "$n is true\n"
		}
	else {
		print "$n is false\n"
		};
	}