use strict;

use warnings;

use Class::Struct;

package Carrier_Info;

 

struct Carrier_Info => {

          name => '$',

          abbrev => '$',

};

 

my $aa="TH";

my @carriers;

{

    #method 2

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

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

               

                my $xyz;

                $xyz = pop(@carriers);

                my $ppp = $xyz->{name};

                print "which name is $ppp\n";

}