use vars qw @ $id @;

my $id="";