foreach my $t( @filename)
{
  if( $t =~ m/\.exe/)
  {
    print $t,"\n";
  }
  elsif( $t =~ m/\.dll/)
  { 
    print $t , "\n";
  }
  else
  { 
    print $t, "\n";
  }
}