#!/usr/bin/env perl 
use strict;
use warnings;

package Carrier_Info;

use Class::Struct;

struct (Carrier_Info => {
          name => '$',
          abbrev => '$',
});

my $aa = "TH";
my @carriers;

push @carriers, Carrier_Info->new(name => "Paul Lalli", abbrev =>"PL");
push @carriers, Carrier_Info->new(name => "Travis Hervey", abbrev=> $aa);

my $xyz = pop(@carriers);
my $ppp = $xyz->name;

print "which name is $ppp\n";