#!/usr/bin/perl -w
use strict;
$|++;

use Data::Dumper;

sub foo { [5, 3], 17 };

my $count = my (@values) = foo();

print $count, "\n";
print Dumper @values;