This is not efficient. I am sure there must be elegant way to do this. some examples please..?

You could use unpack and join.

my $addr = join '.', unpack 'x25 C4', $pkt;
[download]