UNIX for Dummies Questions & Answers

#!/usr/bin/perl

use strict;
use warnings;

my (@arr, $tot, $cont);

sub get_score
 {
  print "score OR r for result OR q to quit: ";

  my $choice = <STDIN>; chomp($choice);

  if ($choice eq "r")
   {
    my $totelements = @arr;
      if ($totelements >= 2)
       {
	@arr=sort{$a<=>$b}(@arr);

 	foreach my $number (@arr)
	{
        $tot += $number;
        }
        my $avg = $tot / $totelements;

 	print "\n  LOWEST: $arr[0]";
 	print "\n HIGHEST: $arr[-1]";
 	print "\n AVERAGE: $avg";
 	print "\n  SCORES: $totelements\n\n";

   	print "Press ENTER to continue...";
   	$cont = <STDIN>;
   	again();
       }
       else
       {
 	print "Need at least 2 valid scores. Reset. Try again.\n\n";
 	@arr=(); $tot=0;  get_score();
       }

   }
   if ($choice eq "q") { exit(); }
   if ($choice =~ /^\d+(\.\d+)?$/) {
   push @arr, $choice;
   } else { print "Invalid input!\n\n"; }
   get_score(); 
 }

sub again {

   print "\nRun again? (y/n) ";
   $cont=<STDIN>;
   chomp ($cont);
   @arr=(); $tot=0; get_score() if $cont eq "y";
   exit() if $cont eq "n";
   again();

}

sub exit { exit; }

get_score();

$ ./checkscore.pl
score OR r for result OR q to quit: .13
Invalid input!

score OR r for result OR q to quit: 12.
Invalid input!

score OR r for result OR q to quit: 
Invalid input!

score OR r for result OR q to quit: 10
score OR r for result OR q to quit: r
Need at least 2 valid scores. Reset. Try again.

score OR r for result OR q to quit: 100
score OR r for result OR q to quit: 25
score OR r for result OR q to quit: 66
score OR r for result OR q to quit: 87
score OR r for result OR q to quit: 10
score OR r for result OR q to quit: 45
score OR r for result OR q to quit: 6
score OR r for result OR q to quit: r

  LOWEST: 6
 HIGHEST: 100
 AVERAGE: 48.4285714285714
  SCORES: 7

Press ENTER to continue...

Run again? (y/n) y
score OR r for result OR q to quit: 1.3
score OR r for result OR q to quit: 4.7
score OR r for result OR q to quit: 0.2
score OR r for result OR q to quit: r

  LOWEST: 0.2
 HIGHEST: 4.7
 AVERAGE: 2.06666666666667
  SCORES: 3

Press ENTER to continue...

Run again? (y/n) n
$