Perl check program oplæg

1. Lav subrutine der kan udskrive en teksten på en check.
   1. Først mellem 0,00 kr og 99,50 kroner
2. Hvis du kan nå det op til 999,50 kroner

my $tal;
my @Enere = qw/nul en to tre fire fem seks syv otte ni/;
my @TiTilNitten = qw/ti elve tolv tretten fjorten femten seksten sytten atten nitten/;
my @Tiere = qw /tyve tredive fyrre halvtreds tres halvfjerds firs halvfems/;

do {
 print "\nIndtast et tal mellem 0 og 99: ";
 $tal = <STDIN>;
 if ( $tal < 10 ) {
   print $Enere[$tal];
 } elsif ( $tal < 20 ) {
   print $TiTilNitten[$tal-10];
 } elsif ( $tal < 100 ) {
   if ( ($tal%10) == 0 ) {
     print $Tiere[($tal/10)-2];
   } else {
     print $Enere[$tal%10], "og”, $Tiere[(($tal-$tal%10)/10)-2];
   }
 }
} while ($tal < 100);