open(FH,"file.txt") or die "file not found";
my $line=0;
my %hash = undef;
while(<FH>)
{
	$hash{$line}	 = undef; #6ht line
	$line++;
}
close FH;
#####
# Here i want print the total memory occupied by this script
####