#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;

my( $left, $right, $righter ) = split ',', 'Mawts 25,female,melbourne';

my( $name, $age ) = split ' ', $left;

dd [ $left, $right, $righter ];
dd [ $name, $age];
__END__
["Mawts 25", "female", "melbourne"]
["Mawts", 25]