Select Code to Download

#!/usr/bin/env/perl
use strict;
...

    print $array[-2];
}

Use of uninitialized value in print at ...\noname1.pl line 10.