my $id = $ARGV[2]; chomp $id;