#! usr/bin/perl

@nums = (1,2,3,4);
$s = shift@nums; \\ I know that gives $s 1
$p = pop@nums; \\ This gives $p 4
$sum += $_ for @nums;
print "$sum";