I'm not sure what you're trying to do, but if I'm reading into this correctly:

#!/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";

   }
}
[download]

This only demonstrates what I "think" you're trying to do, which is create a regex to match "list".