#!/usr/bin/perl -wl

    use strict;


    my @a = (1,2,3);
    print "@a";


    foreach (@a) {
        $_ *= 2;
    }

    print "@a";


    foreach my $item (@a) {
        $item *= 2;
    }

    print "@a";

    __END__
    Prints:

    1 2 3
    2 4 6
    4 8 12