use warnings;
use strict;

my $result =  get_values ();

print "$result\n";

my @results = get_values ();

print "@results";

sub get_values {
    return ("a", "b", "c");
}