...
 my $columnID = $column[0];
 foreach ( my $columnID )
 {
  while ( $columnID =~ /(^FBgn\d+)/ )
  {
   my $ID = $1;
   print $ID, "\n";
  }
 }
...