#!/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
[download]

Here is the relevant detail from the "Foreach Loops" section of perlsyn:

If any element of LIST is an lvalue, you can modify it by modifying VAR inside the loop.

--
John.

Yep, what jmcnamara said! *Smiles*

Add the following line to your code and run it...

#!/usr/bin/perl -w
use strict;
my @msgtime = (1029435628);
my $i;
for ( $i = 0; $i <= 2; $i++ ) {
 foreach my $timealert (@msgtime) {
  print '[',$timealert,'][',@msgtime,']',"\n";    # <--- Add me!
  $timealert = ((time - $timealert) / 60);
  print "$timealert\n";
 }
}
[download]

The time function returns a different time later on.

Update: Uhhh... also the in-place modification jmcnamara++ spotted :)

After Compline,
Zaxo