Подмогните кодом, пожалуйста

Code:

#!/usr/bin/perl

use LWP::UserAgent;
use warnings;

my $ua = LWP::UserAgent->new;

$ua->agent('Opera/9.02 (Windows NT 5.1; U; ru)');
$ua->default_header('VIA' =>"myvalue"); # менять в цикле (совпадают)
$ua->default_header('Referer' => "http://somesite.ru");
$ua->default_header('Accept' => "text/html");
$ua->default_header('Accept-Charset' => "windows-1251");

my $response = $ua->get('http://goodsite.ru/');

if ($response->decoded_content =~ m%document\.getElementById\('framename'\)\.src\s*=\s*'\s*(.*?)\s*'%s)

{  
   sleep (30);
   $ua = LWP::UserAgent->new;

   $ua->agent('Opera/9.02 (Windows NT 5.1; U; ru)');
   $ua->default_header('VIA' =>"myvalue"); # менять в цикле (совпадают)
   $ua->default_header('Referer' => "http://somesite.ru/");
   $ua->default_header('Accept' => "text/html");
   $ua->default_header('Accept-Charset' => "windows-1251");

   my $response = $ua->get($1);
}
else
{
  print "No.\n";
}

Как в цикле менять 'VIA', если сложить значения в столбиках в текстовом файле... К примеру, после прохода двух циклов, 'VIA' меняется на следующее, причем, в первом и втором запросе значения 'VIA' должны совпадать... Очень прошу помочь кодом, заранее спасибо...

 

в каком цикле менять VIA? я не вижу тут циклов. какие значения и из каких столбиков текстового файла надо складывать?
учимся правильно ставить вопросы - и будет вам быстрый и адекватный ответ