my @details = split /Message Type/, $data;

##</code><code>##

my $last_item = $array[$#array];

##</code><code>##

my $item_before_last = $array[ $#array - 1 ];

##</code><code>##

@array = reverse @array; # ...and the last shall be first :)

my $last_item = $array[0];