use strict;
use warnings;

my $counter=0;
my @bin;
while( my $line = <> )
{
  $counter++;
  $bin[$counter] = $line;
}
##</code><code>##

use strict;
use warnings;