#!/usr/bin/perl

sub process_article(*\%\@) 
{
  my $fh=shift;
  my ($locations, $keywords)=@_;
  print "Locations: ",join(" ",keys %{$locations}),"\n";
  print " Keywords: @$keywords\n";
}



%l = (Flint => 'Michigan',
       Bangor => 'Maine',
       Atlanta => 'Georgia',
     );
@keywords=qw(magic snarf prognosticative doohickey);

process_article(STDIN,%l,@keywords);