sakadonohito

#!/usr/bin/perl
# -*- coding:utf-8 -*-

use strict;
use warnings;
use feature 'say';
use encoding 'utf-8';

my @array = (1,2,3);
my %hash = (

sakadonohito

#!/usr/bin/perl
# -*- coding:utf-8 -*-

#use strict;
#strictつけてるとエラーが出てしまうのでコメントアウト
use warnings;
use feature 'say';

my $file_scope = 'File Scope';

sakadonohito

#!/usr/bin/perl
# -*- coding:utf-8 -*-

use strict;
use warnings;
use feature 'say';
use encoding 'utf-8';

sub responseScalar {
	my $a = shift;