# Get two variables back
my ($one, $two) = get_two();
print "One: $one\n";
print "Two: $two\n";

sub get_two() {
    return ("first", "second");
}