#! /usr/bin/perl -w

use strict;
use warnings;
use feature qw(say);

my $hoge = 1;

say scalardouble($hoge);

sub scalardouble {
    my $scalar = shift;
    
    $scalar *= 2;
    return $scalar;
}