#!usr/bin/perl

while ($programming_knowledge > $life)
{
   $life = $life-1;
}