use strict;
use warnings;

no warnings 'uninitialized';

sub A {
        return 10, 20;
}

print (my $a = A());