But in the spirit of give 'em what they ask for, the answer is $-[0] (see @- in perldoc perlvar).