$|=1; # So it works in the Open Perl IDE

@nums = (1..5,11..15);              # use 2 range operators
shift @nums;                        # remove first element
$nums[$#nums] = $nums[$#nums] / 5;  # divide last element
print "@nums";                      # done!

