#!/usr/bin/env/perl
use strict;
use warnings;

reduce(1);

sub reduce {
    my @array = @_;

    print $array[-2];
}

##</code><code>##

Use of uninitialized value in print at ...\noname1.pl line 10.