UPDATE : Contest Closed. My pick winner PERL script chose wrxratd as the winner. The PERL script is provided for reference at the end of this post. Visit the sponsor for more offers.

A wonderful alternative to battery woes on the iPhone; Mophie Juice pack may well be shipped your way this valentine’s day. I published a video review at Mophie Juice Pack’s launch and now you have an opportunity to grab one for FREE (a $99 value)!

Rules are simple :

1) You must reside in the US/Canada.

2) You have to post a comment to this post telling how Mophie Juice pack is going to help you use your iPhone to the fullest. Any comments on this blog (improvements/suggestions/ads) are welcome too (tie-breaker!).

3) Must post the comment by February 14th, 11:59 PM EST.

The winner will be announced the day after Valentine’s day. Comments will be handpicked and on the event of too many entries, a random number generator will pick the winner. Go ahead, you have nothing to lose here!

#PERL Script to pick a winner from a pool of 3 users – iLikeMyiPhone.com

#!/usr/bin/perl
#use strict;
#use warnings;

my $w = 0;

my $d = 0;

my $m = 0;

my $range = 3;

for ($count = 0;  $count<100; $count++) {
$array[$count] = int(rand($range));
}

foreach $member (@array) {
if ($member==0)  {
$w++;
} elsif ($member==1) {
$d++;
} else {
$m++;
}
}

print “wrxratd => 0, David => 1, Mate => 2 – A sample of 100 random numbers to determine the winner” . “\n”;

print “wrxratd’s score = $w” .”\n”. “David’s Score = $d” .”\n”. “Mate’s Score = $m” .”\n\n”;
print “########################################################”. “\n”;
if ($w>$d && $w>$m)  {
print “wrxratd wins the Mophie Juice Pack. Congratulations” . “\n”;
} elsif ($m>$d && $m>$w) {
print “David wins the Mophie Juice Pack. Congratulations” . “\n”;
} else {
print “Mate wins the Mophie Juice Pack. Congratulations” . “\n”;
}
print “########################################################”. “\n”;

#print $w . $d . $m .”\n”;