sub Input ($) { wantarray ? split /,/ : $_; } my @List = Input $Source;