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

reduce(1);

sub reduce {
    my @array = @_;

    print $array[-2];
}