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

running_sum(5, 6);

sub running_sum {
	state $sum = 0;
	state @numbers;

	foreach my $number ( @_ ) {
		push (@numbers, $number);
		$sum += $number;
	}
	say "The sum of (@numbers) is $sum";
}