@ary = (2..6);

$ary[0] *= pop @ary while ( @ary > 1 );

print $ary[0], $/;