#!/usr/bin/perl -w 
###############################################
use strict;
use Tie::File;
my @ry=();

tie @ry,"Tie::File","file2use.txt" or die $!;

my $line = shift @ry;

untie @ry;