format SomeFormat = 
@###.##     @>>>>>>>
$a,         $b
.
my $a = 1;

##</code><code>##

use strict;

format Something =
        Test: @##.##  @###.##
              $a,     $b
.
sayit();


sub sayit {
    $main::a = 1;
    $main::b = 2;
    $~ = 'Something';
    write;
}