#!/usr/bin/perl

use warnings;
use strict;

use MyUtil qw(_list);


my @list = _list(1);

@list = _list([1, 2, 3]);