#!/usr/local/bin/perl

use strict;
use warnings;
use Data::Dumper;   
my @one_to_hundred;

print "hoge";