Select Code to Download

sub reportWA{  # $key
  my $key = shift;
...
       $key, $WA{ $key }{ PE },
       $NewWA, join( ", ", @{ WA{ $key }{ stags } } );
}

sub reportWA{  # $key
  my $key = shift;
...
#.............................^......missing $       
}