use Tie::File;
...

print @file[$#file - $length + 1 .. $#file];