#!/usr/bin/perl -w

use strict;

my @write = qw(my your);
my $url = "list is your list";

foreach my $r (@write) {
if ($url =~ /list/ ) {
$r = 1;
print "hello\n";
print "My R is $r\n";

   }
}