show(\@workers);

...

show(\@sort2);

...

sub show
{   
   my ($array) = @_;
   foreach my $workref (@$array)
   {
      ...
   }
}