#!/usr/bin/perl

use strict;
use warnings;

my (
    $emp_number,
    $name,
    $override_dept,
    $job,
    $shift,
    $d_e,
    $d_e_code,
    $override_rate,
    $hours,
    $year,
    $month,
    $day,
    $filler1,
    $filler2,
    $amount,
    $seq_num,
    $override_div,
    $override_branch,
    $override_state,
    $override_local,
    $state_misc,
    $rate,
    $ssn,
) = 'A' .. 'P';

format XXX =
@>>>>>@>>>>>>>>>>>>>>>>>>>>>>>>@>>>>>@>>>>>>>>>>>@@@>@#####.##@####.##@>>>@>@>@>@>@#####.##@@>>>>>@>>>>>@>@>>>>>>>>>@@@>>>>>>>>>>
$emp_number,$name,$override_dept,$job,$shift,$d_e,$d_e_code,$override_rate,$hours,$year,$month,$day,$filler1,$filler2,$amount,$seq_num,$override_div,$override_branch,$override_state,$override_local,$state_misc,$rate,$ssn
.

my $record = '';
open my ($out), '>', \$record or die $!;

my $oldfh = select($out);
$~ = 'XXX';

write;

select($oldfh);
close($out) or die $!;

print $record;