Writing Perl as Perl

gistfile1.pl

#!/usr/bin/env perl

use 5.014;

my @table=(1,2,3,8,5,8,0,4);
my $max = pop [sort @table];
my @places;

while (my ($index, $value) = (each @table)) {
    push @places, $index if $value == $max;
}

say sprintf 'Max value is %d, at position(s) %s.', $max, join(', ', @places);

Pretty ! Could you report if it works on your system ? I have a doubt about a few things and since perl 5.14 is not installed on my computer, I can't try it at home.