Select Code to Download

$rocks[0] = 'bedrock';      #One element...
$rocks[1] = 'slate';        #another...
$rocks[2] = 'lava';         #and another...
$rocks[3] = 'crushed rock'; #and another...
$rocks[99] = 'schist';      #now there are 95 undef elements

$end = $#rocks;                #99, which is the last element's index
$number_of_rocks = $end + 1    #okay, but you'll see a better way late
+r
$rocks[$#rocks] = 'hard rock'  #the last rock

#!/usr/bin/perl
use strict;
use warnings;
...
} else {
  print "The result is \n", $string x $int,"\n";
}