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

} 
}