Select Code to Download

#! perl -slw
use strict;
...
Rejnaldi 765987 38  Citizen    6
Lisandra 6779AA 34  Noble      4
Kuran    899786 42  Marine     8

C:\test>junk
[
...
  { Age => 34, Career => "Noble", Name => "Lisandra", Terms => 4, UPP 
+=> "6779AA" },
  { Age => 42, Career => "Marine", Name => "Kuran", Terms => 8, UPP =>
+ 899786 },
]

#! perl -slw
use strict;
...
Rejnaldi 765987 38  Citizen    6
Lisandra 6779AA 34  Noble      4
Kuran    899786 42  Marine     8

#! perl -slw
use strict;
...

pp \@data;
__END__