#!/usr/bin/perl

format STDOUT_TOP=
Name                   DOB      Age
---------------------- ------   ---
.

format STDOUT=
@<<<<<<<<<<<<<<<<<<<<< @#####   @##
$name, $DOB, $age
.

while (<DATA>) {
    ($age, $DOB, $name) = split /,\s+/, $_;
    write;
}

__DATA__
30, 010190, Name11111
40, 020280, Name222

##</code><code>##

$ perl 930233.pl
Name                   DOB      Age
---------------------- ------   ---
Name11111               10190    30
Name222                 20280    40
                            0     0