# use these lines at the start to get Perl help you find
# bugs
use strict;
use warnings;

# Note: declare your variables with "my"
# This helps Perl catch any misspellings in variable names
# and reminds you to set initial values for everything

# price for 0, 1, 2, 3, 4 persons
my @pax = (0, 100, 260, 300, 450);
my $plus = 1;
my $currencycode = 'ZAR';
my $sleeps='';
my $maxadults = 4;

while ($maxadults >= $plus) {

  my $paxing = $pax[$plus];  #get $plus member of @pax array

  $sleeps = $sleeps . "$currencycode$paxing for $plus persons<br>";

  $plus++;
}