%auto = (GM => 'Caprice',Ford => 'Pinto',Honda => 'Civic',Toyota => 'Tacoma'); 
foreach $key (keys %auto)
{
	print "$key $auto{$key}\n";
}

format HEADER =
MANUFACTER----MODEL
.

format FLOR =
@<<<<<<<      @########
$key,	      $value
.

write while (($key,$value) = each %auto);

##</code><code>##

Toyota Tacoma
Ford Pinto
Honda Civic
GM Caprice

##</code><code>##

MANUFACTURER    MODEL
-----------------------
Toyota          Tacoma
Ford            Pinto
Honda           Civic
GM              Caprice