#!/usr/local/bin/perl
# しすぷりスクリプト
# ネタ元：＠妹（べたにゃ先生）
# 適当に気の向くまま使ってください（笑）

@sister = (
 'お兄ちゃん',
 'お兄ちゃま',
 'あにぃ',
 'お兄様',
 'おにいたま',
 '兄上様',
 'にいさま',
 '兄くん',
 '兄君さま',
 '兄チャマ',
 '兄や'
)

$i = @sister;
$j = rand(100) % $i;
$true = $sister[$j];

1;