# Define the format, left align first, right align remainder
format Schema = 
@<<<<<<<< @>>>>> @>>>>> @>>>>>
$key,     $s[0], $s[1], $s[2]
.

$~ = "Schema"; # Set the format we're going to use

for $key (sort keys %hash) {
    @s = split(' ',$hash{$key});
    write;
}