use strict;
use warnings;

while (<DATA>) {
    ...
    print "Last: $last, First: $first, Initial: $initial\n";
}

__DATA__
"Smith, John A.", 23, Red