Writing perl as perl

Writing perl as perl

#!/usr/bin/env perl

use strict ;
use locale ;

my @table=(1,2,3,8,5,8,0,4) ;
my @places ;
my ($index,$value) ;

# Max value
my $max = (sort @table)[-1];


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

print "Max value is \"$max\", at position(s) " . join(", ", @places) . "\n" ;