#!perl -w
use strict;
use warnings;
use Data::Dumper;

my $fname = "testfile.txt";
my $ofh;
open ($ofh, ">", $fname) or die $^E;
print $ofh "Zeile 1\n", "Zeile 2\n";
close $ofh;

my $ifh;
open ($ifh, "<", $fname) or die $^E;
my $line = <$ifh>;

my @ar = ( 
   $.,         # String?
   0 + $.,     # String - immer noch?
   1 + $. - 1, # Zahl
);

my $d = Data::Dumper->new([\@ar], [qw(ar)]);
print $d->Dump;

__END__

Ergibt:

$ar = [
        '1',
        '1',
        1
      ];