use strict;

#
# Hash to act as a "mini-namespace" for the format
#
my %GRID;

&printit( "Line 1", "Total Income", "\$5.00" );

sub printit {
   my( $prefix_text, $left_text, $right_text ) = @_;

   ( $GRID{"prefix_text"}, $GRID{"left_text"}, $GRID{"right_text"} ) = ( $prefix_text, $left_text, $right_text );

   $~ = "GRID"; write;
}

#
# Placing my formats here.
#
format GRID = 
--------------------------------------------------------
@>>>: @<<<<<<<<<<<<<<<<<<<    |     @<<<<<<<<<<<<<<<<<<<
 $GRID{"prefix_text"}, $GRID{"left_text"}, $GRID{"right_text"};
--------------------------------------------------------
.

__END__