use Tie::File;

tie my @array, 'Tie::File', 'test.data' or die $!;

for my $index (0 .. $#array) {

    unshift @array, splice(@array, $index, 1) if $array[$index] =~ /33
+3/;
}
untie @array;
[download]