#! /usr/bin/perl
use strict;
use warnings;

use 5.010;


sub foo {
    if ( wantarray ) {
        warn "list context\n";
        return ( 1,2 );
    }
    else {
        warn "scalar context\n";
        return "1,2";
    }
}

say "with join:";
say join " ", foo();
say "with split:";
say for split m/,/, foo();