Problem:
Score : 100 points

Problem Statement

Takahashi has K 500-yen coins. (Yen is the currency of Japan.)
If these coins add up to X yen or more, print Yes; otherwise, print No.

Constraints

1 \leq K \leq 100

1 \leq X \leq 10^5

Input

Input is given from Standard Input in the following format:

K X

Output

If the coins add up to X yen or more, print Yes; otherwise, print No.

Sample Input 1

2 900

Sample Output 1

Yes

Two 500-yen coins add up to 1000 yen, which is not less than X = 900 yen.

Sample Input 2

1 501

Sample Output 2

No

One 500-yen coin is worth 500 yen, which is less than X = 501 yen.

Sample Input 3

4 2000

Sample Output 3

Yes

Four 500-yen coins add up to 2000 yen, which is not less than X = 2000 yen.

Solution in Perl (v5.18.2) (judge verdict: Runtime Error)

y $i = 0;
my @mlist = ();
while(defined(my $line = <STDIN>)){
    chomp;
    @mlist[$i] = $line;
    $i ++;
}

my $n = shift @mlist;
my $x = pop @mlist;

my @mlists = ();
my @mlistt = ();
for(my $i = 1; $i <= $n; $i++){
    my @kari;
    my @kari = split(/ /,@mlist[$i - 1]);
    @mlists[$i - 1] = $kari[0];
    @mlistt[$i - 1] = $kari[1];
}

my $i = 0 ;
while(@mlistt) {
    if ($mlists[$i] == $x){
        shift @mlistt;
        my $total = 0;
        my $i = 0;
        while(@mlistt){
            $total = $total + $mlistt[$i];
            shift @mlistt;
        }
        print $total;
        last;
    }else{
        shift @mlistt;
        $i ++;
    }
}