use warnings;
    
    my @a = (1, 2, 3, 4, 5);
    
    for $x (@a)
    {
        print $x*=2;
        print "\n";
    }

    print "outside the loop \n";
    print "@a";

2
4
6
8
10
outside the loop 
2 4 6 8 10