use strict;
my @arry = (1,2,3,4,5 );

foreach my $bla ( @arry )
{
    $bla++;
}

foreach ( @arry )
{
    print "$_\n";
}