perl／ハッシュ、split、STDIN〜入力された数字を漢数字にする〜

#! usr/bin/perl

use strict;
use warnings;

my %hash1=(
    1=>'一',
    2=>'二',
    3=>'三',
    4=>'四',
    5=>'五',
    6=>'六',
    7=>'七',
    8=>'八',
    9=>'九',
    0=>'〇'
);

print "please input a number.\n";
my $in = <STDIN>;
chomp ($in);

if ($in!=~ /[0-9]+/){
    print "your number is errer. please input again.\n";
    exit;
}else{
    my @array1 = split(//,$in);
    print "@array1\n";
    foreach (@array1){
        print $hash1{$_};
    }
}