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

use List::Util qw{ sum };

my ($x, $y) = (2, 3);

my $opt = "$x, $y";
my @opts = split /,\s*/, $opt;
print sum(@opts);