#!/usr/bin/perl use strict; use warnings; #### my $var = ''; my @array = (); #### foreach my $line () { #### exit;
## my $var = ''; my @array = (); ##
## foreach my $line () { ##
## exit;