#! perl 
# 1134136-2.pl
use warnings;
my ($bottom, $top);
my @mountain = ($bottom, $top, foo);
exit;