#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dump;
use Getopt::Long qw{GetOptionsFromString};

my ($x, $y, $z) = (0, 0, 0);
my %opts = ('x=i', \$x, 'y=i', \$y, 'z=i', \$z);

dd \%opts;

GetOptions(%opts);

dd \%opts;

print 'Enter new: ';
chomp(my $new = <>);

GetOptionsFromString($new, %opts);

dd \%opts;