my @array= ( 1..5 );
for( @array ) {
    if(  \$_ == \$array[-1]  ) {
        print "Last element.\n";
    }
    print $_, $/;
}
__END__
1
2
3
4
Last element.
5

##</code><code>##

my $five= 5;
*array= sub { \@_ }->( 1, 2, $five, 4, $five );
for( @array ) {
    if(  \$_ == \$array[-1]  ) {
        print "Last element.\n";
    }
    print $_, $/;
}
__END__
1
2
Last element.
5
4
Last element.
5