> perl t-fixedwidth.pl

$VAR1 = {
          '1JJJJJ' => {
                        'Status Description' => '1SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS',
                        'Agency Reference' => '1RRRRRRRRR',
                        'Customer Name' => '1NNNNNNNNN',
                        'Telephone Number' => '1TTTTTTTTT'
                      },
          '3JJJJJ' => {
                        'Status Description' => '3SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS',
                        'Agency Reference' => '3RRRRRRRRR',
                        'Customer Name' => '3NNNNNNNNN',
                        'Telephone Number' => '3TTTTTTTTT'
                      },
          '2JJJJJ' => {
                        'Status Description' => '2SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS',
                        'Agency Reference' => '2RRRRRRRRR',
                        'Customer Name' => '2NNNNNNNNN',
                        'Telephone Number' => '2TTTTTTTTT'
                      }
        };
1TTTTTTTTT
2TTTTTTTTT
3TTTTTTTTT

>