use strict;

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


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