#!/usr/bin/perl
##use warnings;
while(<>){
if(($p=3)..5)
{
print "p is $p\n";
}
}