Hastebin

#!/usr/bin/perl
use strict;
use warnings;
use v5.4;	

#prime number generator

sub check
{
    my $product = $_;
    my $end = ($product - 1);

    my $remainder;

    my @a = (2..$end);
    for (@a)
    {
	$remainder = $product % $_;
	if($remainder == 0)
	{
	    return -1;
	}
    }
    return $product;
}

sub generator
{
    my $endpoint = $_;
    my @results;
    for(my $i = 2; $i <= $endpoint; $i++)
    {
	my $test = check($i);
	if($test == -1)
	{
	    next;
	}
	else
	{
	    push(@results, $_);
	}
    }

    print " @results";
}

generator(1000);