in reply to Use an incrementing counter as a variable

I think what you rather want is an array called @bin

use strict;
use warnings;

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

[download]

see perldata#List-value-constructors for details on arrays (numbers as indices) and hashes (strings as keys)

and please always use

use strict;
use warnings;

[download]

Cheers Rolf
(addicted to the Perl Programming Language and ☆☆☆☆ :)
Je suis Charlie!

Replies are listed 'Best First'.
Re^2: Use an incrementing counter as a variable (arrays)
by AnomalousMonk (Archbishop) on Sep 11, 2017 at 17:15 UTC

    Anonymous one: Variations on this approach are 

    c:\@Work\Perl\monks\Anonymous Monk\1199083>perl -wMstrict -MData::Dump
+ -le
"my @bin;
 ;;
 while(my $line = <>) {
   push @bin, $line;
   }
 ;;
 dd \@bin;
"  junk_1.txt
["line uno\n", "line two\n", "line 3\n"]

c:\@Work\Perl\monks\Anonymous Monk\1199083>perl -wMstrict -MData::Dump
+ -le
"my @bin = <>;
 ;;
 dd \@bin;
"  junk_1.txt
["line uno\n", "line two\n", "line 3\n"]

    [download]
    where junk_1.txt contains 
    line uno
line two
line 3

    [download]
    Both these variations relieve you of the need to maintain the  $counter counter (assuming it's initialized to 0).

    Give a man a fish:  <%-{-{-{-<

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom