Yeah, that's doable. I can also think of doing it without having everything inside the loop ..

#!/usr/bin/perl

use strict;
use warnings;

#  2022-0125: Handle First and List iems differently that everything
#  in between ..

{
    my @keys = qw/q w e r t y u i o p/;

    print "First is $keys[0] ..\n";

    foreach my $k ( @keys[1..(scalar @keys -2)] ) {

      print "In the middle: $k\n";
    }

    print "Finally, we have $keys[-1].\n";
}
[download]

First is q ..
In the middle: w
In the middle: e
In the middle: r
In the middle: t
In the middle: y
In the middle: u
In the middle: i
In the middle: o
Finally, we have p.
[download]