#!/usr/bin/perl
use Modern::Perl;

while (<DATA>) {
    chomp;
    my ($index, $value) = split /\s/;
    say "$index\t$value" if $value <= 500;
}

__DATA__
1 10
2 11
3 9
4 500
5 550