AlCommon::ApplicationAbout( %ApplicationDetails );

# ... 

package AlCommon;

sub ApplicationAbout
{
  my %details = @_;

  foreach my $AboutItem (qw(Name
                           Version
                           Comments)) {
    print "$AboutItem = $details{$AboutItem}\n";
  }
}