my @values = qw/red green brown blue/; foreach my $v ( @values ) { if ( $v eq $values[-1] ) { # Last value } else { # All other values } }