Perl: Look forward to command that has not run yet

Question

Suppose I have the following bit of code:

foreach my $site (@site) {
    my $enter = `curl -s "$site" -H "Referer: https://OTHERSITE.potato"`;
}

Would it be possible to print just the referer of the curl command (OTHERSITE.potato) before the foreach function?

I am unsure of how to begin because usually when I want to print something, it has already been stored as a string

Edit: Because some people are not understanding the question, assume $enter cannot be modified. Is there a way to "look forward" to retrieve the contents of $enter before the program even gets there?

Answer 1

Well, store it as a string then, right?

my $referer = "OTHERSITE.potato";
print $referer,"
";
foreach my $site (@site) {
  my $enter = `curl -s "$site" -H "Referer: https://$referer"`;
}