print "Enter a array of any number of elements \n";
@x=<>;
chomp @a;
print "@x \n";
foreach(@x)
   {
if(($_>0)&&($_<21))
      {
         $y+=$_;
         print "Inside sum logic $_\n";
      }
      elsif(($_ eq "q")||($_ eq "Q"))
      {
         print "Inside last $_ \n";
         last;
      }
   }