my @ips_of_interest = qw( 127.0.0.1 10.0.1.51 );
foreach my $ip ( @ips_of_interest ) {
    print "IP is $ip\n";
    print "Text is $text_for{$ip}\n";
}