my $read;
my @lst;