"Thanks..."

My pleasure. Next step: Go over that bridge named "module" - as some fellow monks mentioned already.

Like this, less or more:

package YourModule;

use strict;
use warnings;
use Exporter qw(import);

our ( $VERSION, @EXPORT_OK );

$VERSION   = 1.00;

@EXPORT_OK = qw(from_json);

sub from_json {
   # stuff... 
}

1;
[download]

See also Re: How to parse the logs in a generic manner

Regards, Karl