use strict;
use warnings;

my @arry = qw ( 1 5 5 5 5 2 );
my $i = 0;

print "@arry\n";

for ($i = 0; $i < @arry; $i++) {
    next unless $arry[$i] == 5;
    splice (@arry, $i, 1);
    --$i;
}

print "@arry\n";