sub INFO 
{
    my ($company,$last,$first,$serial,$meter) = @_;
    print "COMPANY: $company\n";
    print "LAST: $last\n";
    print "FIRST: $first\n";
    print "SERIAL: $serial\n";
    print "METER: $meter\n";
}

# you can call it like so:
&INFO($company,$last,$first,$serial,$meter);

##</code><code>##

use strict;
use warnings;

my %hash = (
   COMPANY => 'Acme',
   LAST    => 'Scott',
   FIRST   => 'Randolph',
   SERIAL  => 'number',
   METER   => 'maid',
);

print &INFO(%hash);

sub INFO {
   my %params = @_;
   my $output;
   $output .= "$_ = $params{$_}\n" for keys %params;
   return $output;
}