my $current_city = 'Some City';
my $xml = Module->parse('myfile.xml', //City[@name=$current_city);
my @street_list = $xml->findnodes('/Street');
print "In $current_city these streets have bars: ";
foreach my $street (@street_list) {
    if ($street->{bars} ne 'none') {
        my $street_name = $street->{name};
        print "$street_name";
    }
}