use Data::Dumper; sub sendMsg2ABC { my ($class,$data)=@_; my $envelope = pop @_; print Dumper $envelope;