Edge case behaviour might need some changes:

#!/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/;
    my @keys = qw/q/;

    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]

B:\>perl 11140865-single.pl
First is q ..
Finally, we have q.

B:\>
[download]

Alexander