my $username = 'username';
my $password = 'pass';

# uranai_data
my $filename = './mezaura.yaml';
my $data     =  YAML::LoadFile($filename);

my $twit = Net::Twitter->new(username => $username, password => $password);

my $count = 1;
for ( my $i=11; $i >= 0; $i-- ){
    my $date = $data->{date};
    my $rank = $data->{ranking}[$i]->{rank};
    my $star = $data->{ranking}[$i]->{star};
    my $text = $data->{ranking}[$i]->{text};
    my $outputs;

    if ($rank == "01"){
        $outputs = $date ." ". $rank. "位 ". $star .": ". $text;
    } else {
        $outputs = $rank. "位 ". $star .": ". $text;
    }

    my $result = $twit->update($outputs);
    $count++;
}