use Tie::File;
...

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

##</code><code>##

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