#!/usr/bin/perl -w

use strict;

my $key;
my $formatted_text = &format_me;
print $formatted_text;

sub format_me
{
   my $pair;
   open BLOCKSTRUCTURE, '>', \$pair;
   foreach $key ( sort keys %ENV ) {
      write BLOCKSTRUCTURE;
   }

   format BLOCKSTRUCTURE =
@<<<<<<<<<<<<<<<<<<<<<<<<<< value ->    @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$key,                                   $ENV{$key}
.

  return $pair;
}