#!/usr/bin/perl -l

use strict;
use warnings;
use List::Util qw/reduce/;

our($a, $b) = @_;
my $reduce = reduce { $a + $b; } 1, 2, 3, 4;
print $reduce;