use strict;
use Tie::File;

my $f = shift;
my $l = shift -1;

tie my @f => 'Tie::File' => $f;
print "$l: $f[$l]";