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