sub mysort
     {
     chomp(@entries = <STDIN>);
     foreach $indexofleast (@entries)
          {
          $indexofleast = $firstelement;
           foreach $counter (@entries)
                {
                if ($counter lt $indexofleast)
                      {
                      $indexofleast eq counter;
                      }
                if ($indexofleast ne $firstelement)
                      {
                      $temp = $firstelement;
                      $firstelement = $indexofleast;
                      $indexofleast = $temp;
                      }
                }
          }
     }