#!/usr/bin/env perl
use strict;
use warnings;
warn 'hello';
my $hoge = "a,b,c,d';
warn shift split ',' $hoge;