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