If that print isn't showing up, the problem is that likely your regex is failing. Your regex could be failing because the data isn't quite in the format you expect. You would be better of being more liberal with your expression, which right now is limited to "word" characters by virtue of \w.

Your second print is likely not showing up because there are no "pairs", since none were added in the first loop.

A quick fix looks something like this:

#!/usr/bin/perl -w

use strict;

use LWP::Simple;

my %categories;

my $page = get('http://www.inshift.com/Products.html');

while ($page=~m/href="([^"]*)"\s+class="rightnav">([^>]*)</sg)
{
        $categories{$1} = $2;
        print "[$1] and [$2]\n";        # Note "\n"
}

foreach my $idkey (keys %categories)
{
        print "$idkey,$categories{$idkey}\n";
}
[download]

A few notes on the changes:

• Don't assign default variables to those which don't need them. Hashes and arrays start empty, and scalars are undef. In your example you assigned an empty list to a scalar, which is pretty much nonsense.
• Where appropriate or practical, you can put your declarations within the looping structure, such as foreach.
• Don't create scratchpad variables like @pairlist which are only used once. Just inline the code that makes them right into the loop. Of course, if the calculation of this is really complicated, maybe you would reconsider, but a simple keys call does not usually qualify.
• If you print without newlines, your output is buffered and may not show up at all until the program finishes. You can change this behaviour using $| if you like ($OUTPUT_AUTOFLUSH for those who use English).
• Be sure to think out your regex and test it on sample data before throwing up your hands in despair. In this case, you expected \w to capture a lot more than was in your example.

A minor error, really.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.