use Tie::File;
use strict;

my @ry=();

tie @ry,"Tie::File","myfile" or die "$!"; 

my $line=$ry[$#ry];

untie @ry;

print $line;