my $counting;
my @totalCounting;
my @link = ('water', 'water', 'water', 'water', 'water');
foreach my $i (@link){
    $counting++;
    push @total``Counting, $counting;
}
say @totalCounting[-1];