#!/usr/bin/perl
use strict;
use warnings;

sub tryLocal{
  my $param_str=shift;
  my @pairs= split(/\&/,$param_str);
  my %params;
  foreach my $pair (@pairs) { 
    my ($key,$value)= =split(/\=/,$pair);
    $params{$key}=$value;
  }
  return %params
}

my %params=tryLocal("name=james&color=red&age=12");